home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 8 / The Arsenal Files Collection #8 (Arsenal Computer) (1996).ISO / pcboard / vrs501.zip / VRS-M81.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-10-08  |  3KB  |  155 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     String   STRING001
  22.     String   TSTRING002(20)
  23.     String   STRING003
  24.  
  25. ;------------------------------------------------------------------------------
  26.  
  27.     Goto LABEL001
  28.     End
  29.     If (0 == 0) STRING001 = "NO"
  30.     If (0 == 1) STRING001 = "YES"
  31.  
  32.     EndFunc
  33.  
  34.     :LABEL001
  35.     STRING003 = "@X0A√@X0C√@X07"
  36.     Cls
  37.     StartDisp 1
  38.     DCloseAll
  39.     If (Exist(PPEPath() + "VRS.DBF")) Delete PPEPath() + "VRS.DBF"
  40.     DOpen 6, PPEPath() + "USER.DBF", 0
  41.     INTEGER001 = DRecCount(6)
  42.     INTEGER002 = DFields(6)
  43.     DCloseAll
  44.     TSTRING002(1) = "PLAYERS,N,4,0"
  45.     TSTRING002(2) = "DDELETE,N,4,0"
  46.     TSTRING002(3) = "EMB_DATE,N,5,0"
  47.     TSTRING002(4) = "PL_BATS,N,3,0"
  48.     TSTRING002(5) = "R_BATS,N,3,0"
  49.     TSTRING002(6) = "DBASE,C,8,0"
  50.     TSTRING002(7) = "MAINT,N,5,0"
  51.     TSTRING002(8) = "TRSF_LIMIT,N,8,0"
  52.     TSTRING002(9) = "BANK_BAL,N,9,0"
  53.     TSTRING002(10) = "BANK_INT,N,2,0"
  54.     TSTRING002(11) = "LOTTO,N,6,0"
  55.     TSTRING002(12) = "ACCESSED,N,10,0"
  56.     TSTRING002(13) = "BLT_PATH,C,68,0"
  57.     DCreate 3, PPEPath() + "VRS.DBF", 0, TSTRING002(BOOLEAN000)
  58.     Print "                          ", STRING003
  59.     DNew 3
  60.     Print STRING003
  61.     DPut 3, "PLAYERS", INTEGER001
  62.     Print STRING003
  63.     DPut 3, "DDELETE", 15
  64.     Print STRING003
  65.     DPut 3, "EMB_DATE", ToInteger(Date())
  66.     Print STRING003
  67.     DPut 3, "PL_BATS", 15
  68.     Print STRING003
  69.     DPut 3, "R_BATS", 15
  70.     Print STRING003
  71.     DPut 3, "DBASE", "USER"
  72.     Print STRING003
  73.     DPut 3, "MAINT", ToInteger(Date())
  74.     Print STRING003
  75.     DPut 3, "TRSF_LIMIT", 1000
  76.     Print STRING003
  77.     DPut 3, "BANK_BAL", 327670000
  78.     Print STRING003
  79.     DPut 3, "BANK_INT", "02"
  80.     Print STRING003
  81.     DPut 3, "LOTTO", "5000"
  82.     Print STRING003
  83.     DPut 3, "ACCESSED", 0
  84.     Print STRING003
  85.     DPut 3, "BLT_PATH", PPEPath() + "VRS.BLT"
  86.     Print STRING003
  87.     DAdd 3
  88.     Print STRING003
  89.     DCloseAll
  90.     Newlines 2
  91.     PrintLn "@X40┌─────────────────────────────────────────────────────────────────────────────@X4C┐@X0F"
  92.     PrintLn "@X40│@X4B                        New Configuration Database Created!@POS:79@@X4C│@X0F"
  93.     PrintLn "@X40└@X4C─────────────────────────────────────────────────────────────────────────────@X4C┘@X0F"
  94.     Delay (2 * 182) / 10
  95.     DCloseAll
  96.     FCloseAll
  97.     End
  98.  
  99. ;------------------------------------------------------------------------------
  100. ;
  101. ; Usage report (before postprocessing)
  102. ;
  103. ; ■ Statements used :
  104. ;
  105. ;    2       End
  106. ;    1       Cls
  107. ;    1       Goto 
  108. ;    18      Let 
  109. ;    16      Print 
  110. ;    3       PrintLn 
  111. ;    3       If 
  112. ;    1       StartDisp 
  113. ;    1       Delete 
  114. ;    1       Delay 
  115. ;    1       Newlines 
  116. ;    1       FCloseAll
  117. ;    1       EndFunc
  118. ;    1       DCreate 
  119. ;    1       DOpen 
  120. ;    4       DCloseAll
  121. ;    1       DNew 
  122. ;    1       DAdd 
  123. ;    13      DPut 
  124. ;
  125. ;
  126. ; ■ Functions used :
  127. ;
  128. ;    1       *
  129. ;    1       /
  130. ;    5       +
  131. ;    2       ==
  132. ;    2       Date()
  133. ;    5       PPEPath()
  134. ;    1       Exist()
  135. ;    2       ToInteger()
  136. ;    1       DFields()
  137. ;    1       DRecCount()
  138. ;
  139. ;------------------------------------------------------------------------------
  140. ;
  141. ; Analysis flags : No flag
  142. ;
  143. ;------------------------------------------------------------------------------
  144. ;
  145. ; Postprocessing report
  146. ;
  147. ;    0       For/Next
  148. ;    0       While/EndWhile
  149. ;    0       If/Then or If/Then/Else
  150. ;    0       Select Case
  151. ;
  152. ;------------------------------------------------------------------------------
  153. ;                 AEGiS Corp - Break the routines, code against the machines!
  154. ;------------------------------------------------------------------------------
  155.